perm filename XXX[SCR,LCS]1 blob
sn#201219 filedate 1976-02-10 generic text, type T, neo UTF8
00100 RCDFLG←-1;
00200
00300 < ZIM .DAT -- RANDOM NUMBER= 1
00400 PLAY;
00500 CLAR2 0.000 0.783 DS*2 333.333 F1 0.000 F4
00600 ;PRINT(P1);< CLAR2 3
00700 <TOOT 0.080 0.385 P3*4 500.000 F2 F3 F3 0.500
00800 ;PRINT(P1);< <TOOT 1
00900 CLAR3 0.500 0.377 B 333.333 F1 0.000 F4
01000 ;PRINT(P1);< CLAR3 4
01100 CLAR 0.630 0.817 DS 333.333 F2 0.000 F4
01200 ;PRINT(P1);< CLAR 5
01300 CLAR2 0.797 0.637 DS/2 333.333 F2 0.000 F4
01400 ;PRINT(P1);< CLAR2 6
01500 <TOOT 0.850 0.385 P3*4 500.000 F2 F3 F3
01600 ;PRINT(P1);< <TOOT 2
01700 CLAR3 0.927 0.783 F*2 333.333 F1 0.000 F4
01800 ;PRINT(P1);< CLAR3 7
01900 CLAR 1.427 0.377 GS/4 333.333 F2 0.000 F4
02000 ;PRINT(P1);< CLAR 8
02100 CLAR2 1.557 0.817 AS*2 333.333 F1 0.000 F4
02200 ;PRINT(P1);< CLAR2 9
02300 <TOOT 1.620 0.385 P3*4 500.000 F2 F3 F3
02400 ;PRINT(P1);< <TOOT 3
02500 CLAR3 1.723 0.637 D*4 333.333 F1 0.000 F4
02600 ;PRINT(P1);< CLAR3 10
02700 CLAR 1.853 0.783 AS*2 333.333 F1 0.000 F4
02800 ;PRINT(P1);< CLAR 11
02900 CLAR2 2.353 0.377 AS*2 333.333 F1 0.000 F4
03000 ;PRINT(P1);< CLAR2 12
03100 <TOOT 2.390 0.385 P3*4 500.000 F2 F3 F3
03200 ;PRINT(P1);< <TOOT 4
03300 CLAR3 2.483 0.817 F*2 333.333 F1 0.000 F4
03400 ;PRINT(P1);< CLAR3 13
03500 CLAR 2.650 0.637 C*2 333.333 F1 0.000 F4
03600 ;PRINT(P1);< CLAR 14
03700 CLAR2 2.780 0.783 D 333.333 F2 0.000 F4
03800 ;PRINT(P1);< CLAR2 15
03900 <TOOT 3.160 0.385 P3*4 500.000 F2 F3 F3
04000 ;PRINT(P1);< <TOOT 5
04100 CLAR3 3.280 0.377 C/2 333.333 F2 0.000 F4
04200 ;PRINT(P1);< CLAR3 16
04300 CLAR 3.410 0.817 FS 333.333 F2 0.000 F4
04400 ;PRINT(P1);< CLAR 17
04500 CLAR2 3.577 0.637 GS 333.333 F1 0.000 F4
04600 ;PRINT(P1);< CLAR2 18
04700 CLAR3 3.707 0.783 E*4 333.333 F1 0.000 F4
04800 ;PRINT(P1);< CLAR3 19
04900 <TOOT 3.930 0.385 P3*4 500.000 F2 F3 F3
05000 ;PRINT(P1);< <TOOT 6
05100 CLAR 4.207 0.377 GS 333.333 F1 0.000 F4
05200 ;PRINT(P1);< CLAR 20
05300 CLAR2 4.337 0.817 FS 333.333 F2 0.000 F4
05400 ;PRINT(P1);< CLAR2 21
05500 CLAR3 4.503 0.637 CS*4 333.333 F1 0.000 F4
05600 ;PRINT(P1);< CLAR3 22
05700 CLAR 4.633 0.783 CS 333.333 F2 0.000 F4
05800 ;PRINT(P1);< CLAR 23
05900 <TOOT 4.700 0.385 P3*4 500.000 F2 F3 F3
06000 ;PRINT(P1);< <TOOT 7
06100 CLAR2 5.133 0.377 A/2 333.333 F2 0.000 F4
06200 ;PRINT(P1);< CLAR2 24
06300 CLAR3 5.263 0.817 G 333.333 F1 0.000 F4
06400 ;PRINT(P1);< CLAR3 25
06500 CLAR 5.430 0.637 C*2 333.333 F1 0.000 F4
06600 ;PRINT(P1);< CLAR 26
06700 <TOOT 5.470 0.385 P3*4 500.000 F2 F3 F3
06800 ;PRINT(P1);< <TOOT 8
06900 CLAR2 5.560 0.783 E*4 333.333 F1 0.000 F4
07000 ;PRINT(P1);< CLAR2 27
07100 CLAR3 6.060 0.377 GS 333.333 F1 0.000 F4
07200 ;PRINT(P1);< CLAR3 28
07300 CLAR 6.190 0.817 DS 333.333 F2 0.000 F4
07400 ;PRINT(P1);< CLAR 29
07500 <TOOT 6.240 0.385 P3*4 500.000 F2 F3 F3
07600 ;PRINT(P1);< <TOOT 9
07700 CLAR2 6.357 0.637 G*2 333.333 F1 0.000 F4
07800 ;PRINT(P1);< CLAR2 30
07900 CLAR3 6.487 0.783 DS*4 333.333 F1 0.000 F4
08000 ;PRINT(P1);< CLAR3 31
08100 CLAR 6.987 0.377 AS 333.333 F1 0.000 F4
08200 ;PRINT(P1);< CLAR 32
08300 <TOOT 7.010 0.385 P3*4 500.000 F2 F3 F3
08400 ;PRINT(P1);< <TOOT 10
08500 CLAR2 7.117 0.817 B 333.333 F1 0.000 F4
08600 ;PRINT(P1);< CLAR2 33
08700 CLAR3 7.283 0.637 AS*2 333.333 F1 0.000 F4
08800 ;PRINT(P1);< CLAR3 34
08900 CLAR 7.413 0.783 AS*2 333.333 F1 0.000 F4
09000 ;PRINT(P1);< CLAR 35
09100 <TOOT 7.780 0.385 P3*4 500.000 F2 F3 F3
09200 ;PRINT(P1);< <TOOT 11
09300 CLAR2 7.913 0.377 FS*4 333.333 F1 0.000 F4
09400 ;PRINT(P1);< CLAR2 36
09500 CLAR3 8.043 0.817 FS*8 333.333 F1 0.000 F4
09600 ;PRINT(P1);< CLAR3 37
09700 CLAR 8.210 0.637 B*2 333.333 F1 0.000 F4
09800 ;PRINT(P1);< CLAR 38
09900 CLAR2 8.340 0.783 F*2 333.333 F1 0.000 F4
10000 ;PRINT(P1);< CLAR2 39
10100 <TOOT 8.550 0.385 P3*4 500.000 F2 F3 F3
10200 ;PRINT(P1);< <TOOT 12
10300 CLAR3 8.840 0.377 A*4 333.333 F1 0.000 F4
10400 ;PRINT(P1);< CLAR3 40
10500 CLAR 8.970 0.817 F 333.333 F2 0.000 F4
10600 ;PRINT(P1);< CLAR 41
10700 CLAR2 9.137 0.637 B/2 333.333 F2 0.000 F4
10800 ;PRINT(P1);< CLAR2 42
10900 CLAR3 9.267 0.783 GS 333.333 F1 0.000 F4
11000 ;PRINT(P1);< CLAR3 43
11100 <TOOT 9.320 0.385 P3*4 500.000 F2 F3 F3
11200 ;PRINT(P1);< <TOOT 13
11300 CLAR 9.767 0.377 A 333.333 F1 0.000 F4
11400 ;PRINT(P1);< CLAR 44
11500 CLAR2 9.897 0.817 C*4 333.333 F1 0.000 F4
11600 ;PRINT(P1);< CLAR2 45
11700 CLAR3 10.063 0.637 E 333.333 F2 0.000 F4
11800 ;PRINT(P1);< CLAR3 46
11900 CLAR 10.193 0.783 CS 333.333 F2 0.000 F4
12000 ;PRINT(P1);< CLAR 47
12100 CLAR2 10.693 0.377 D*2 333.333 F1 0.000 F4
12200 ;PRINT(P1);< CLAR2 48
12300 CLAR3 10.823 1.317 E/2 333.333 F2 0.000 F4
12400 ;PRINT(P1);< CLAR3 49
12500 FINISH; < ZIM .DAT